home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / datasheets and manuals / Hardware / WHT / scsi / dsr_sources_2_2001 / gpl20 < prev    next >
Text File  |  2006-10-19  |  2KB  |  106 lines
  1. GPL20  ANDI R12,>FF00
  2.        AI   R12,24
  3.        LDCR @ZERO,4
  4.  
  5.        LI   R0,STINIT
  6.        MOV  R0,@STACK
  7.  
  8. * If we're doing a write, we have to invalidate the cache
  9.  
  10.        MOVB @>834C,R6
  11.        ANDI R6,>0F00
  12.        AI   R6,>FF00
  13.        CB   @>834D,@ZERO
  14.        JNE  GPL2BB
  15.        LDCR @B04,4       Select RAM bank 4
  16.        LI   R4,DNCASH
  17. GPL20A CB   *R4,R6
  18.        JNE  GPL20B
  19.        CLR  *R4
  20. GPL20B AI   R4,48
  21.        CI   R4,>5FFE-48
  22.        JL   GPL20A
  23. GPL2BB LDCR @ZERO,4      Select RAM bank 0
  24.  
  25.        MOVB @>834C,R1
  26.        ANDI R1,>4000
  27.        JEQ  GPL20C
  28.        SB   @B01,@>834C
  29.  
  30.        BLWP @BANKIT
  31.        DATA SCSI20
  32.        INCT R11
  33.        ANDI R12,>FF00
  34.        RT
  35.  
  36. GPL20C LI   R1,SECBUF
  37.        MOV  @>8350,R8
  38.        MOV  @>8352,R7
  39.        SRL  R8,1
  40.        JNC  GPL20D
  41.        AI   R1,>0100
  42. GPL20D SRL  R7,1
  43.        JNC  GPL20E
  44.        ORI  R8,>8000
  45. GPL20E LI   R0,256
  46.        MOV  @>834E,R3        Get buffer location
  47.        MOVB @>834D,R2        Check for read/write
  48.        JEQ  GPL20I
  49.        BLWP @BANKIT
  50.        DATA SCSIRD
  51.  
  52.        MOVB @>834C,R2        Check buffer location
  53.        ANDI R2,>8000
  54.        JEQ  GPL20G
  55.  
  56. GPL20F MOVB *R1+,*R3+
  57.        DEC  R0
  58.        JNE  GPL20F
  59.        ANDI R12,>FF00
  60.        INCT R11
  61.        RT
  62.  
  63. GPL20G ANDI R3,>8000
  64.        SWPB R3
  65.        MOVB R3,@VDPWA
  66.        SWPB R3
  67.        MOVB R3,@VDPWA
  68.        NOP
  69. GPL20H MOVB *R1+,@VDPWD
  70.        DEC  R0
  71.        JNE  GPL20H
  72.        ANDI R12,>FF00
  73.        INCT R11
  74.        RT
  75.  
  76. GPL20I
  77.        BLWP @BANKIT
  78.        DATA SCSIRD
  79.  
  80.        MOVB @>834C,R2        Check buffer location
  81.        ANDI R2,>8000
  82.        JEQ  GPL20K
  83.  
  84. GPL20J MOVB *R3+,*R1+
  85.        DEC  R0
  86.        JNE  GPL20J
  87.        BLWP @BANKIT
  88.        DATA SCSIWT
  89.        ANDI R12,>FF00
  90.        INCT R11
  91.        RT
  92.  
  93. GPL20K SWPB R3
  94.        MOVB R3,@VDPWA
  95.        SWPB R3
  96.        MOVB R3,@VDPWA
  97.        NOP
  98. GPL20L MOVB @VDPRD,*R1+
  99.        DEC  R0
  100.        JNE  GPL20L
  101.        BLWP @BANKIT
  102.        DATA SCSIWT
  103.        ANDI R12,>FF00
  104.        INCT R11
  105.        RT
  106.